RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


— eee eee eee ee ee ee a ee a Re ee ee ee ee ee re re ee re re ee eee ee 


FOSS He EHS He HEHE HS FTE HEHE HEHE FE TE HE TS HE HS OS HS HS HS HS HSS HES HS HS HE HE TS TS FS HS FEES HS TSS HS FS SSS HSS HSS “SHS HEHE FOSS 


ud wus wus 
ud uwiud bathe 
Ma ld wus 
uu wus uu 


wu 
WU Ud dd a a a ss 
(eS SRle reir saveprelouseesecseegecsuesecy 


a4 
a4 
a 
a4wu4 
a4 
a 
Pe) 
a4 
ao I I I UI UI I I 
ao HI II I I I UI UI I I 
>>>> nn MMnn 
>>>> nn mwmnnm 
>> nw “wn “nn 
>_> mw mn nn 
>> >>>>>> mn nn “ww 
>>> >>>>> nw nw wn 
>> nw nw wn 
>> nn mn ww 
>>>> MMWMnM nw ¢ 
>>>> Munn wn 
_— 
-—e 
to oe — 
-e ot oe oe 
ee ee ee Te ee ee ag nd ad ee ee 
ee ee ae ne ag ne Og Od Od Od Oy nd 
_— to -_—— 
bo eee ee 
-—e 
_— 
ww nNwWMnnwm a4 
nw MMMM a4 
wn wn nw a4 
ww wn nn ad 
nn wn nw a 
mw nn wn 44 
nw nn wn a 
now nn ww ayo 
NANMM nw ee ee LL 
MMMnm nn id ad od I Ih I od I Od I I I 


F 10 
EEE 

EEE 

E 

E 

EEE aden 

EEE a 


*eFILEt*1DeeSTYLE 


Verify and collect attributes for .STYLE <entit 18-50 300-1984 9: 38: 8 VAX-11 8 


Liss-32 V4.0-742 
-Sep-1 DISKSVMSMASTE TER: Pye 


CRUNOFF.SRCISTYLE.BLI; 


co. ¥ } Q RTITLE ‘Verity and collect attributes for .STYLE <entity> commands’ oe 
: § § MODULE STYLE SET Ss - ij 
; 7 BLISS32C. ADDRESSING. MODE( EXTERNAL 2 LONG_RELATIVE a 
: : ¢ , sNONEXTERNAL = LONG “RELATI IVE)J | 
3 = ; 
;  § § | BEGIN Si 
: 3 $8 1 " panaraniges paioyeceeia nan pemseaess eee renee rena. ; 
+ :* ® oO 
: 10 010 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 : a 
: 1 O11 1 i® DIGITAL EQUIPMENT CORPORATIONS MAYNARD. MASSACHUSETTS. . - 
3 \§ og ! i: ALL RIGHTS RESERVED. : 4 
: 14 014 1 i THIS fo ‘iccle t.. eyes ed rae ten LICENSE AND MAY BE USED AND COPIED * ; 
; 15 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * - i 
; 1 18 1 !* INCLUSION OF THe, ee E Sl dhe NOTICE. THIS gle) vit ANY OTHER * - 3 
; 1 01 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * i 
; \8 018 1 !* OTHER PERSON. NO TITLE TO AND OWNERS::IP OF THE SOFTWARE IS HEREBY * + ij 
; i 44 : = TRANSFERRED. : ‘ i 
3; gl 00g) | is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * a 
: § 0 ¢ 1 !® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : ij 
; Z 4 i ! i: CORPORATION. . 4 
: 5 0025 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 17S * 3 
: 6 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ° i 
M 0058 lis : | 
. . ® o 4 
: 9 00 9 1 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeneeeeneeeeeeeneeeeeeneeeeeee 3 | 
3 0 0030 1! 3 
3 1 3h 1 !+¢ s ¢ 
; § 8 § : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; , 
: : 0034 : ABSTRACT: Processes the attributes of a .S/YLE <entity> command. " , 
: $ 0036 ! ENVIRONMENT: Transportable : ‘ 
; 8 $038 1 | AUTHOR: Keith Dawson CREATION DATE: April 1982 ; ¢ 
; 0039 1 | i ¢ 
: é 
3 ¢ 
ar « 
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a ¢ 
g ¢« 
g ¢ 
g 4 
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LL Covel boclerat tons Ret aBe TE BRRs | WbShls teas chdnore Secasryce.euie; 
SSBTTL "Module Level Declarations’ 
TABLE OF CONTENTS: 
LINKAGE 
IF etd pas tia OR ZBLISS(BLISS16)) XTHEN 
pass 
cA cl tree? TER=1; REGISTER=2), 
pass_4 return 
wegtACk, (REGTSTE TER=1, REGISTER=2, REGISTER=3, REGISTER=4; REGISTER=5), 
retur 
se acl (REGISTER=1, REGISTER=2; REGISTER=3, REGISTER=4); 
pass_1_return 


= 
PuSHJ (; "aE istER=2) : LINKAGE _REGS (15,13,1), 
PUSH) (; R GISTER= 2) : LINKAGE_REGS (15,13,1), 


pass return 
“Fl PUSHJ ( 1 REGISTER=2, REGISTER=3) : LINKAGE_REGS (15,13,1); 


INCLUDE FILES: 
LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 


REQUIRE ‘REQ:RNODEF'; ! RUNOFF sartent definitions 


Z1F DSRPLUS ZTHEN 
LIBRARY 'REQ:DPLLIB'; ! DSRPLUS BLISS Library 


ZELSE 

* ee *REQ:DSRLIB'; ! DSR BLISS Library 

FORWARD ROUTINE 

‘Processes .STYLE { EXAMPLE | FIGURE | TABLE | HEADER } commands. 
SET STHL : NOVALUE iSets up ECC from .STHL command. 

ZIF DSRPLUS XTHEN 

SET_ONE ate i NOVALUE ; hed one eter tbute, stores KWS waeer net vn in the proper ECC. 


CHEEK HC_V 7 ange-checks suppl ied HL-level va 
T_ST YEE. hs : NOVALUE; fat ializes the $KWS_BLOCKVECTOR wee the STYLE <entity> commands. 


MACROS: 
OWN STORAGE: 


4 DSRPLUS X%THEN 
FIRST TIME : INITIAL (1), ; Have we ever set up keywords? 
CKED ‘Wave we checked HL-range validity during this call? 
KEYQORDS : $KWS_BLOCKVECTOR; 
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¥04¢600 Po process all attributes for .STYLE <ent 19-808-13 4 94:39:38 NE EKSUPEHASTERSCMUNOFY SRCISTYLE.BLIC4 2" (63 


Zsbttl ‘STYLE -- process all attributes for .STYLE <entity> command’ 
GLOBAL ROUTINE STYLE (HANDLER) = 


144 
' FUNCTIONAL DESCRIPTION: 


STYLE verifies the .STYLE <entity> attributes given by the user. 
My Tale atdiate of the verified attributes into the ECC 


4 
AFTERC=n) leave n blank Lines after each caption. 
make caption sc od t 
BEFOREC=n) leave n blank Lines before each caption. 
BETWEENC=n) leave n blank Lines between ‘CHAPTER’ or ‘APPENDIX’ & caption. 
BOLD make entity caption bold. 
BREAK start a new Line between the counter and caption. 
CENTER center entity caption cond don't run in). 
DEFAULTS return all values to initial defaults. 
FIRSTCAP make entity caption initial-caps. 
4 LEAVECASE do not change case of entity caption. 
LEFT make the counter and caption Lleft-justified. 
LEVEL= (,.STHL only) command applies to HL n. 
NORUNIN do not run in caption with text. 
NOBOL do not make entity caption bold. 
9 NOBREAK do not start a new Line after the counter. 
NOPAGE do not start a new page before a CHAPTER, etc. 
NOTOCPAGE do not insert a page number in the TOC. 
NOSTARTODD do not force the first page of a chapter on an odd page. 


NOUNDERL INE do not underline this entity caption. 
NUMBERED display counter for this entity. 


69 09 69 C9 09 09 SI NINN SSN NSP AAPA AAA AMI 


oo ODOOOOOOOMWWCO 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: 
The routine updates the ECC block corresponding to the handler code. 


ROUTINE VALUE: 
COMPLETION CODES: 


The routine returns 0 for normal completion. It returns -1 if 
the userwsupt ted attributes cannot be deciphered (mismatched 
elimiters). 


4 

5 start a new page before CHAPTER or APPENDIX. 

6 RUNIN run in caption with text (and don't center). 

7 SPACESC=nJ leave nm spaces between counter and caption. 

8 STARTODD force the first page of a chapter to start on an odd page. 
9 iesroaee gana issue implicit tes “2 en. 

10 TOCPAGE insert a page number in the TOC. 

11 UNDERLINE make entity caption underlined. 

\ UNNUMBERED do not display counter for this entity. 

13 FORMAL PARAMETERS: 

16 HANDLER specifies which command is being processed: 

1 ~STYLE EXAMPLE, .STYLE FIGURE, .STYLE TABLE 

“STYLE APPENDIX, .STYLE CHAPTER or .STYLE HEADERS. 
0 
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4-600 STYLE == process all attributes for .STYLE <ent 1 ~Sep-19 4 94:38:78 DISKSVMSMASTER:CRUNOFF . SRCISTYLE.BLI:1° (4) 
; 205 ¢ 1! 
; Se 1 ! SIDE EFFECTS: None 
; 20 4 1 !<- 
; 208 ; 3 
: 4 § BEGIN 
: 211 U 0358 ¢ XIF DSRPLUS ZTHEN 
; \¢ U oe 
: 1 U 0340 first_keyword, ‘First legal kéyword in the tables for this command. 
> 214 U 0341 Last_Keyword, ‘Last legal keyword for this command. 
3; 215 u 0 ri} number_of keywords, 'How rip | keywords are legal for this command. 
: 18 U 034 kw_offset, 'Offset into the KEYWORDS tables, pointing to the first 
3 6a U 0344 +2 ' legal Reyvere * this command. 
; 218 U 0345 end_delimiter, 'The matching ) J > }. 
; <i U 8 rt) match 'Index of which keyword was found, from DOATTR. 
; 220 U 034 ecc_offset, ‘Offset into the ECC block, pointing to data for this entity. 
; $$ U tk old. syntex_sthl, ‘True if command is an .STHL in the old, 9=-number syntax. 
3 § ¢ U 8 49 result, 'Completion code from ATTSYN and DOATTR. 
: &e U 0350 start_where; '‘Assures that giving no attributes re-establishes defaults. 
BOER B, 
; 326 ; 0358 i Initialize 
: 238 : Bte2 ; init_style_kw (.handler); 'Set up KWS structure for this STYLE command. 
; 256 ¥ tet 4 hls_checked = 0; !Indicate that we have not checked a HL-range yet. 
; $36 : 0355 end_delimiter = %C')'; 'Preset the terminator character. 
: $3 U 0361 SELECT .handler OF 
EU Sie " 
: 237 U 0364 Ch_style_appendi, h_style_chapter] : 
: $3h y 0368 sated 1! Webley 
3 $23 U B08 first_keyword = kwsSk_first_chapp; 
; 240 U 036 Last_Keyword = kws$k_Tast_chapp; 
3 sey J toe END; 
; 328 0370 Ch_style_appendi] : ecc_offset = append_offset; 
; zs u B36 Ch_style_chapter) : ecc_offset = chap_offset; 
: sf , $e ch style exesple, h_style_figure, h_style_table] : 
: 49 U 378 tirst_keyword = kws$k_first_entity; 
: 250 U 037 lLast_Keyword = kws$k_Tast_entity: 
: 3 v 8 END; 
; 38 ¥ tt Ch_style_example] : ecc_offset = examp_offset; 
; 22 ¥ 38 Ch_style_figure] : ecc_offset = figur_offset; 
: H 33 Ch_style_table) : ecc_offset = table_offset; 
: 25 7 Mi Ch_style headers) : 
; 261 U 8 BEGIN 
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v04-000 STYLE == process all attributes for .STYLE <ent 14-Sep-1984 13:08:1 DISKSVMSMASTER:CRUNOFF.SRCIJSTYLE.BLI;1 (4) 
; 26 U 94 eccaotfset = hcoll_offset; 
3; £6 U 0 first keyword = kwsSk_first_header; 
; 264 U 0391 Last_Keyword = kws$k_Tast_heéader; 
: $82 U 0808 5 url 
: 26 94 ‘Initialize the ECC ag td area for .STYLE HEADERS commands. 
; oe 3? eccini (hcoll_offset, hcoll_offset, false); 
: 27 v 0397 5 XIF DSRPLUS XTHEN 
3s eri U 0398 END; 
; ef U 0399 TES; 
ie BBP gar 
; i Q40¢ ¢ X1F NOT DSRPLUS XTHEN 
: 277 0404 i This command must be .STYLE HEADERS (the only Legal .STYLE command 
; 278 0405 ! handled by this module for DSR). It is an old-syntax .STHL, with up 
; RB Bebe 1 to 9 numeric arguments. 
: 281 0408 IF .handler EQL h_style_headers !Defensive check. 
388 0410 THEN BEG! 
> 284 0411 sthl (.handler); 'Process the .STHL in the old way. 
; 285 bei§ set _sthl (ecc, 1, 6, true); 
; 286 041 RETORN 0; 
: 5B 41s Else 
: 289 0416 erms (rnfile, CHSPTR(UPLIT('STYLE1')), 6); 
Bo mig 
; o9¢ ; 0419 ZIF DSRPLUS XTHEN 
: $34 U a631 i Set the number of beywerey legal for this command. 
s $32 ¥ be § number _of keywords = ,last_keyword - .first_keyword + 1; 
: 297 U 0424 i Assume that any .STHL command will be in the new, keyworded format. 
; Soe ; be 5 old_syntax_sthl = false; 
: $00 U 04 ; i Preset startin point for attribute search. 
3 pt ; 8 8 start_where = .first_keyword; 
: 30 U be 0 i Preset the offset into the keyword tables that applies for this command. 
3; 304 U 0431 ! This allows DOATTR not to have to know the structure of the keyword tables. 
3 04 y 8 § kwloffset = .first_keyword * (kws$k_length * ZUPVAL); 
: 30 U 0434 2 !+ 
3 3 u | 5 } Verify the syntax of the attribute-List. 
; 19 Y ? ; "result = attsyn (.handler; end_delimiter); 
; \¢ U 04 5 CASE .result FROM min_attcc TO max_attcc OF 
HP ogee us 
: 2 re Cattcc_ok] : 0; 
; 13 U 0444 Cattcc_dcf_error] : 
; 318 U 0445 : 
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s 319 U BEGIN 

; 0 U endcmt (); 'Skip rest of text in the input. 

; 1 U RETURN -1; 

; ¢ U END; 

; & U Cattcc_mmd_error] : 

; 325 U ! 

; ; $ U BEGIN 

: U endcmt (); 'Skip rest of text in the input. 

: 8 U RETURN -1; 

: 3 : END; 

3 : 1 : Cattcc_leading_number] : 'Old-syntax .STHL was given. 

: 335 U IF .handler EQL h_style_headers 'Defensive check -- ATTRIB is Supposed 
; $30 ; shag 'to return this code only for .STHL commands. 
: 336 U sthl (.handler); 'Process the .STHL in the old way. 

p Sor U old_syntax_sthl = true; 

; 338 U start_where = max_keywords + 1; 

3 33 U 

; 340 U ELSE 

; $3 ¥ erms (rnfile, CHSPTRCUPLIT("STYLE1')), 6); 

: 38 : Cattcc_none) : 'No attributes were supplied. 

: 345 U iDo not try to get any keywords; act as if user had given DEFAULTS keyword. 
; 308 Y § start_where = max_keywords + 1; 

; 348 \ 2 CINRANGE, OUTRANGE) : erms (rnfile, CHSPTR(UPLIT('STYLE2")), 6); 

: 350 U TES; 

; 351 U + 

; 326 4 Collect one or more attributes. 

; 322 U : INCR K FROM .START_WHERE TO .LAST_KEYWORD DO 

3 399 U BEGIN 

3 $29 ¥ MATCH = -1; ‘Assume we will not find the keyword. 

: 358 U RESULT = DOATTR (.HANDLER, .END DELIMITER, (KEYWORDS + «KW_OFFSET), 

; 338 u -NUMBER_OF _KEYGORDS; MATCH); 

; 361 U CASE .RESULT FROM MIN_ATTCC TO MAX_ATTCC OF 

is 3 a 

3 364 U 'We take no action for the following errors; they were already 

; 0? ¥ ‘reported by DOATTR. 

: 367 U ATTCC_AMA_ERROR, ATTCC_IKW_ERROR] : 0; 

3 o8 y ATTCC_NNA_ERROR, ATTCC_MQS_ERROR) : 0; 

; 70 ; CATTCC_OK, ATTCC_NVS_ERROR] : 

: 37 U iit's ok not to specify a value; the effect is to invoke the default value. 
; 7 SET_ONE_STYLE (.ECC_OFFSET, ECC C.ECC_OFFSET, 0,0,0,0], (.MATCH + .FIRST_KEYWORD) ); 
: 375 U CATTCC_NONE) : EXITLOOP;  !End of attribute list detected. 
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you b00 STYLE == process all attributes for .STYLE <ent 1 ~3007 138% 94:58:78 DISKSVMSMASTER: CRUNOFF . SRCISTYLE.BLI:1> (4) 

; Ss U ; 

: i : B CINRANGE, OUTRANGE) : ERMS (RNFILE, CHSPTR(UPLIT('STYLE2')), 6); : 
: 37 U TES; ; 8 
; 380 U : ! : 

; 5) : R208 END; ! End of processing for 1 attribute. ; 

; HY U 0819 ' Process defaulted arguments of extra keywords (unless the user issued ; 8 
; ee uy O31] 1_an old=syntax .STHL Command). ; H 
; 386 U 218 IF NOT .old_syntax_sthl THEN ; 8 
: 385 y 0818 ae i 3 
3 34 §218 If the user specified no attributes, act as if DEFAULT has been specified. . : 
; 391 U 0318 IF .START_WHERE NEQ .FIRST_KEYWORD THEN ; 8 
3 36 U 051 'User super ied no attributes. Act as if he geve the DEFAULTS keyword. ; 8 
; i, : b2 y SET_ONE_STYLE (.ECC_OFFSET, ECC C.ECC_OFFSET, 0,0,0,0J, KWSSK_DEFAULTS) ‘ : 
; 395 u 05 § ‘User supplied some attributes; we should have processed all of them ; 8 
3 331 3 82 ? i now. If any remain, skip over them and note the error. : 8 
; 398 U 0525 IF .KHAR NEQ .END_DELIMITER THEN 3 ; 
; 399 U 0526 eT 
; 400 U 0527 FS_INIT (FS01); 3 § 
3 401 U 05 8 WHILE .KHAR NEQ .END_DELIMITER DO ; 8 
; 40 U 0529 BEGIN 3 § 
; 40 U 0530 KCNS (); 3 § 
3 404 U 0531 FS_WCHAR (FSO1, .KHAR); ; 8 
: 405 U 05 $ ENB; : § 
; 406 U 053 ! ; § 
3: 407 U 0534 '*Too many attributes; ‘'..."' ignored’. The ‘’-1"' assures that the s § 
; 408 U 0535 ‘end-delimiter is not included in the error message. i | 
; 409 uU 05 § ERMS (RNFTMA, .FS_START (FSO1), .FS_LENGTH (FSO1) = 1); 3 3 
; 410 u 05 END | 
; 411 U 05 ELSE : ; 9 
; sig U 0539 ‘End of etring: get the terminator and position past the : @ 
; 641 U 0540 ‘attributes string. 3 § 
3 6416 U 0541 N s § 
: 415 U B206 KCNS (); eS | 
; 416 U 054 SKPSEP (IRA); sg 
> 417 U 0544 END; : 
3: 4418 U 0545 END; 3 ¢@ 
; 419 U e738 END; : & 
; $59 U 054 ‘+ : ; 9g 
3 ; 1 : 278 An .STHL command gets processed through its own action routine. : ; 
; 6 ‘ U $880 ! s ¢ 
: 424 u 0551 IF .handler EQL h_style_headers THEN 3 § 
3; 425 U 226 BEGIN 3 ¢ 
: 426 u 05 LOCAL 3 ‘ 
3 : i 7 22 first, last; : i 
: 429 U 228 ! The ARG_LENGTH value is used to store the second number of a range. ‘ 

; ; ? J 22 If no range was given, this value is zero. ; 

: 432 U 9339 IF .keywords Ckws$k_level,kws$h_arg_length) EQL 0 THEN : 1 


a ee 
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STYL Verify and collect attributes for .STYLE <entit 1b-5¢ -1984 01:50:5 VAX-11 Bliss-32 V4.0-742 Pp 
y04+600 STYLE == process all attributes for .STYLE <ent 1 ~300n 138% FE DISKSVMSMASTER:CRUNOFF .SRCJSTYLE.BLI:1> (aS 
; 433 U 0560 first = (last = .keywords Ckws$k_level,kws$h_arg_ value]) 
Hes U $61 ELS : . sctheattstee 
; 435 U 8 ! User did supply a range. 
ee $ U og cin 
3 § U 0564 first = .keywords Ckws$k_level,kws$h_arg value]; 
; 438 U 0565 last = .keywords Ckws$k_Tevel,kws$h_arg_CengthJ; 
; 439 U 208 END; 
: tee U 0868 i check the order of FIRST and LAST, flipping if 
3 : ec e order o and L n necessary; range-check 
: tts U 28? ! the numbers. The routine returns FALSE’ St Ss ther runber’ is re of 
: “er 2/9 range; in this case no STHL values are set. 
; 445 U 276 IF check hl_values (first, last) THEN 
> 446 U Ta set_SthT (ecc, .first, .last, .old_syntax_sthl); 
: tts Y Oars the culuatal Gbein both f 
; : e value(s ven the user are OK. Perform the s e change. 
449 U 0576 in ° . Se 
; 450 U 057 END; 
; 451 0578 “FI 
3 rt 0579 RETURN 0; 
; #45 0580 
3; 454 0581 +1 END; ‘End of STYLE 


-TITLE STYLE joe and collect attributes for .STYLE 
en 

-IDENT \v04-000\ 

-PSECT $PLIT$,NOWRT,NOEXE,2 

00 00 31 45 4C 59 54 53 00000 P.AAA: .ASCII \STYLE1\<0><0> : 

.EXTRN ECC, FSO1, HLC, HLLIST 

“EXTRN IRA. KHAR. RNFI 

-EXTRN ECCINI, ERMS, STHL 


-PSECT S$CODES,NOWRT 2 


0000 00000 -ENTRY STYLE, Save nothing 3 oe76 
7E 03 7D 9008 MOV #3, (SP) > 0395 

03 DD 0000 PUSHL # ; 

000000006 EF 03 FB 9007 CALLS #3, ECCINI : 
000000C4 =F 04 AC D4 O00E CMPL HANDLER, #196 + 0408 
04 AC OD $Oi8 PUSHL HANDLER > 0411 

000000006 EF 1 FB 6 1 CALLS #1, ST : 
1 oD PUSHL #1 > 0412 

6 DD 00 PUSHL #6 ; 

1 BD 6 PUSHL #1 ; 

000000006 EF 9F PUSHAB ECC : 

00000000V_ EF 4 fe CALLS #4, SET_STHL ; 
5 1 BRB 2$ ; Oats 
06 po 1$ PUSHL #6 : 0416 

90000000" F OF 9 PUSHAB P.AAA ; 

00 G 8F DD F PUSHL #RNFILE ; 

000000006 _ EF ; FB 45 CALLS a3, ERMS : 
D4 0004C 28 CLRL OR > 0581 
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STYL Verify and collect pttreey tes for .STYLE <entit 1 
Sou 500 STYLE -= process all attr Ybutes for .$ YLE <ent 1 fen 1382 9}: 38: § bt KSUMGA men Aitea<chunser Secistvie.eut’ ge (a) 
04 0004E RET 3 


; Routine Size: 79 bytes, Routine Base: S$CODE$ + 0000 


es 
4 
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; 455 U 0582 1 XIF DSRPLUS %THEN 
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STYL Verify and collect attributes for .STYLE <entit 1b-5e -1984 01:50:5 VAX-11 Bliss-32 V4.0-742 Page 
vourb00 STYLE == process all attributes for .STYLE <ent 1 30071382 94:38:78 DISKSVMSMASTER: CRUNOFF . SRCJSTYLE.BLI: 1° (3 
; 457 U 3 1 XSBITL "SET_ONE_STYLE == set ECC information for one valid attribute’ 
; ? 3 y : } ROUTINE SET_LONE_STYLE (OFFSET, STYLE_BLOCK, MATCH) : NOVALUE = 
; 460 U 8 1! 
; rhe Y ! FUNCTIONAL DESCRIPTION: 
; 46 U 05 § 1} SET_ONE_STYLE is the action rout ine for attributes. It is called, 
: 464 U 2 a 3 when a legal attribute is processed, to set the proper 
; 465 u 0591 1! ECC values. 
: re ¢ U 236 1! 
; re e87 ! FORMAL PARAMETERS: 
; 4 U 230 1! OFFSET indicates which command is being processed: it is the 
8 oiy : beeo : offset into the ECC blockvector pointing to the command. 
: rt ¥ 0399 ! STYLE_BLOCK is the address of the SECC_BLOCK to update. 
; 474 U 0600 1! MATCH is the index into the $KWS_BLOCK that corresponds 
: 475 U 0601 1! to the attribute we are processing. 
; 476 U Bone 7 3 
: 477 U 0603 1 ! IMPLICIT INPUTS: None 
: 478 U 0604 1! 
; 479 U 0605 1 ! IMPLICIT OUTPUTS: 
; 480 U 0606 1! 
; «481 U oe . 2 One piece of ECC information is updated. 
; re U 0608 1! 
; 48 U 0609 1 ! ROUTINE VALUE: 
3; 6484 U 0610 1 ! COMPLETION CODES: None 
> «4485 U 0611 1! 
; 486 U Belg 1 ! SIDE EFFECTS: None 
3; 487 U 0613 1 !~- 
; 488 U 0614 1 BEGIN 
: 489 U 0615 1 
3 re Y Beis : BIND KW = KEYWORDS C.MATCH, 0,0,0,0] : $KWS_BLOCK; 
3; «49 U 0618 1 BIND SB = .STYLE_BLOCK : SECC_BLOCK; 
; 49 U 0619 1 
3 494 U 0620 1 LOCAL 
: 495 U 0621 1 NUMBER, 
; 496 U 06 § 1 SIGN; 
3: 497 U 06 1 
: 498 U 0624 1 NUMBER = .KW CKWSSH_ARG VALUE: 
: 499 u ° 5 : SIGN = .KW CKWSSH_ARG_SIGNJ; 
: 30 U oeeF 1 te 
; 208 4 e 3 ' : We have a legal attribute. Set information in the ECC structure. 
; 04 U 0650 1 SELECT .MATCH OF 
; 505 U 0631 1 SET 
; 5] U 06 § 1 
; 50 U 1 CKWSSK_AFTER] : 
3; 508 U 0634 1 : 
; 509 U 0635 1 BEGIN 
; 510 U 06 § 1 LOCAL 
3 «(OTT U 06 1 res_number; 
3 ¢ U 06 $ 1 
i U 06 1 res_number = 
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Verify and collect attributes for .STYLE <entit 16-Sep-1984 01:50:5 VAX=11 Bliss-32 V4.0-742 P 3 STYL 

STYLE’ == process all attributes for TStYLE <ent 12-808-1382 94:38:98 DISKSVMSMASTER: RUNOFF .SRCJSTYLE.BLI:1> (33 v04- 
; 514 U 0640 1 (IF = .sign EQL THEN _ .number : 1€ 
: 1? ¥ i} ! ELSE “*.3b Lecc hatter] + number ); : 1 
: 313 Y oees | IF .RES_NUMBER LS§ 0 THEN 1 
: \8 ¥ ree ! RES_NUMBER = 0; : ! 
: 520 U 646 1 SB _CECCSH_AFTER] = .RES_NUMBER; : 10 
i 85) Y 0668 oi i ig 
; § u eis CKWSSK_ALLCAP] : SB CECCSH_CASE] = ECCSK_ALLCAP; : + 
: 525 U 068) | CKWSSK_BEFORE) : 1 
3 $ U § 1 ' ; 1 
; u 0653 1 BEGIN : 1 
: 528 U 0654 1 LOCAL > 10 
ict : : 639 RES_NUMBER; ; 19 
; 2 1 U 637 1 ES_NUMBER = : 10 
. ¢ é U 06 : 1 (IF .SIGN EQL 0 THEN .NUMBER > 10 
; : Y $028 ! ELSE .SB CECCSH_BEFORE] + .NUMBER); : 13 
: §35 U 0661 1 IF .RES_NUMBER LSS 0 THEN : 10 
; 3 uy 066¢ RES-NUMBER = 0; 3 19 
; 338 U 0664 1 SB CECCSH_BEFORE] = .RES_NUMBER; ; 10 
: i6 y osee mas ‘1 
; 341 ; 066 CKWSSK BETWEEN] : i 10 
: 848 U Oct 1 BEGIN : 10 
3: 544 U 0670 1 LOCAL 3; 10 
; 546 bees : RES_NUMBER; : 18 
: “$ U ie 1 RES_NUMBER = : 10 
; 548 U 0674 1 (IF .SIGN EQL 0 THEN .NUMBER > 10 
3 He 4 y Ror ELSE .SB CECCSH_BETWEEN) + .NUMBER); ; 18 
; $31 U 6 1 IF .RES_NUMBER Lss 0 THEN ; 19 
; 26 3 a : RES_RUMBER = 0; ; 13 
; 337 uU 0680 1 SB CECCS$H_BETWEEN] = .RES_NUMBER; : 10 
> 555 U 0681 1 IF RES RUMBER GT THEN : 10 
3 228 U ; 1 SB CECCSV_BREAK] = TRUE; : 10 
536 y Be ~ 15 
: 359 U 0685 | CkWS$k_BOLD] : SB CECCSV_BOLD] = TRUE; i] 
; 26t U $$ 1 (KWSSK_BREAK) : : 19 
3s 3 U 1 ! 3; 10 
3 8 U § 1 BEGIN : 10 
: 564 U 1 $8 ECCSV BREAK) = TRUE; ; 18 
; 565 u 0691 1 SB CECCS$H-RUNIN) = 0; : is 
3 4] U 3 1 END; : 
3s 56 U 0693 1 : 11 
; u 34 CKWSSK CENTER) : : i 
; $ U 0696 1 BEGIN 3 (11 


[KWS$K_NOTOCPAGE) : SB CECCSV_TOCPAGE) = FALSE; 
[KWS$K_NOUNDERLINE] : SB CECCSV_UNDERLINE) = FALSE; 
[KWS$K_NORUNIN] : SB CECCSH_RUNIN) = 0; 
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STYL Verify and collect attributes for .STYLE <entit 18-5¢ -1984 01:50:5 VAX=11 Bliss-32 V4.0-742 Page 14 STYL 
v0e-600 STYLE == process all attributes for .STYLE <ent 1 30571 $8e 9y:0R:78 DISKSVMSMASTER: CRUNOFF. SRCISTYLE.BLI;1° (35 v04- 
: $71 u 0697 1 SB CECCSH_POSITION] = ECCSK_CENTER; 23) 
; re U 638 1 68 EE EST -ROnind = 0; . 711 
HUB nn iy 
; 43 U O7o1 1 CKWS$K_ DEFAULTS) : : 1 
: 8 U 07 § 1 if OFFSET NEQ HCOLL_OFFSET THEN ' Initialize style info. 311 
; 4 4 f : ! euseeere (,OFFSET, TOFFSET, FALSE) ! for one <entity>. : 1 
: 80 u 0706 1 BEGIN ‘Initialize style information for 211 
; 581 u 0707 1 LOCAL i one or a range of header-levels. 2 
; Be u f 4 | | FIRST, LAST; ; i 
: 584 u 0710 1 i The ARG_LENGTH value is used to store the second number of a range. 3: 73 
$ 3? u ay ! : If no range was given, this value is zero. : + 
: 587 U 0718 1 IF .KEYWORDS CKWSSK_LEVEL,KWSSH_ARG LENGTH] EQL 0 THEN 3 1 
; 588 u 0714 1 FIRST = (LAST =~. KEYWORDS CRWSS$R_LEVEL,KWSSH_ARG_VALUE]) 311 
: 89 u 0715 1 ELSE 3 11 
; 590 U o7i6 1 ! User did supply a range. 21 
; 591 u 0717 1 BEGIN 311 
: 3 U O718 1 FIRST = .KEYWORDS CKWSSK_LEVEL, KWSS$H_ARG_VALUE); 711 
; 59 u 0719 1 LAST = .KEYWORDS CKWSSK_CEVEL, KWSS$H_ARG_CENGTH); 3 3 
2 oe wa az 
; $36 U 8? § 1 i Range-check the HL values. :11 
; 59 U 07 1 IF CHECK_HL_VALUES (FIRST, LAST) THEN 311 
; 598 U 07 5/4 BEGIN 311 
3; 599 u 0725 1 FIRST = .FIRST + HCOLL_OFFSET; 311 
; 600 U 07 $ 1 LAST = .LAST + HCOLL_OFFSET; 311 
; 601 U 07 1 ECCINI (.FIRST, .LAST, FALSE); 311 
; 60 u 0728 1 END; : 11 
: 80a 4 0780 | sin at 
; 605 u a7 1 CKWSSK_FIRSTCAP) : SB CECCSH_CASE) = ECCSK_FIRSTCAP; : i 
; é07 y O738 1 CKWSS$K_LEAVECASE] : SB CECCSH_CASE) = ECCSK_LEAVECASE; 3 } 
; rst ¥ 07 5 ' CKWS$K_LEFT) : SB CECCSH_POSITION] = ECCSK_LEFT; 3 i 
; oi) u g $ | CKWS$K_NOBOLD] : SB CECC$V_BOLD) = FALSE; ; yt 
; ei8 Y 739 ' CKWS$K_NOBREAK] : SB CECC$V_BREAK] = FALSE; 3 i 
; 615 y ror [KWS$K_NOPAGE} ; 
; 619 U 28 1 BEGIN : 11 
: 618 U 0744 1 SB CECCSV_PAGE) = FALSE; +11 
3 (61 u 0745 1 SB CECCS$VZSTARTODD) = FALSE; 311 
3; 620 U 0746 1 END; 211 
: 621 U 074 1 : 11 
3; 6 § U 0748 1 3 4 
3; 6 U 0749 1 3: 11 
3; 624 u 0750 1 21 
i 882 Y Opes 4 at 
; 6 $ U 736 1 : 11 
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and collect attributes for .STYLE <entit 1b-5e 1984 01:50:5 VA 
‘os process all attributes for .STYLE <ent 1 =308- 138% 93:38:78 DI 
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IF ,RES NUMBER gs 0 THEN 
RES_RUMBER = 0; 
58 CECCSH_TESTPAGE) = ,RES_NUMBER; 
END; 

CKWSSK_TOCPAGE] : SB CECCSV_TOCPAGE) = TRUE; 

CKWSSK_UNDERLINE] : SB CECCSV_UNDERLINE] = TRUE; 

CKWSSK_UNNUMBERED] : SB CECCS$V_UNNUMBERED] = TRUE; 

CKWSSK_LEVEL] : 0; ‘Nothing to do; the value olereey resides 
‘in the KWS, from which it will be picked 
iup by SET_STHL. 

COTHERWISE) : ERMS (RNFILE, CHSPTR(UPLIT('SET_ONE_STYLE')), 13); 

TES; 


! End of SET_ONE_STYLE 
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IMPLICIT QUTPUTS: 


One or more ECC fields are updated (new-syntax .STHL), or the entire 
header portion of the ECC_BLOCKVECTOR -- 6 $ECC_BLOCKs -=- is replaced. 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


11 
ify and collect attri E <entit Ibe5e -1984 01:50:5 VAX=11 Bliss-32_V4.0-742 Page 17 oer} 
stHL -- Set up ECC f HEADERS 1 =3607 138% 93:39:78 DISKSVMSMASTER:CRUNOFF.SRCISTYLE.BLI:1> (6) 
5 ZSBITL "SET_STHL == Set up ECC from one .STYLE HEADERS command’ 
$ ROUTINE SETLSTHL (STYLE_BLOCK, FIRST_HL, LAST_HL, OLD_SYNTAX) : NOVALUE = 
i 
§ FUNCTIONAL DESCRIPTION: 
i SET_STHL moves the collected .STYLE HEADER information from its 
: collecting place to the appropriate level of the ECC. 
t This is done in one of two ways: 
5 i 1) For a peveerntes ke yer eee -STHL, information is moved 
$ ! from ECC CHCOLL_OFFSET to the proper level in the ECC. 
8 i 2) For an old-syntax, numbered .STHL, information is picked 
up from the HLC structure and moved into the ECC. 
1 FORMAL PARAMETERS: 
5 STYLE_BLOCK is the address of the SECC_BLOCK to update. 
5 FIRST_HL is the number of the first level of header to update (from 1 to 6). 
; LAST_HL is the number of the Last level to update (from .FIRST_HL to 6). 
> | OLD_SYNTAX is TRUE if the .STHL command was in the old, numbered syntax. 
1 | IMPLICIT INPUTS: None 
g fi 
! 
1 
i 
1 
i 
4 
i 
1 
i 


MAP 
STYLE_BLOCK : REF SECC_BLOCKVECTOR; 


BIND 
COL_BL = STYLE BLOCK CHCOLL_OFFSET, 0,0,0,0) 
: SECC_BLOCK, ‘Keyword information has been collected here. 
OLD_BV = STYLE BLOCK CHCOLL_OFFSET, 0,0,0,0] 
: SECC_BLOCKVECTOR; 'Overwrite here, if an old-syntax .STHL. 


CRO 
move bit (offset) = 
“*REW_BL Coffset) = (.NEW.BL Coffset] OR .COL_BL Coftset]) %, 


move_numeric (offset) = 
TF .COL_BL Coffset] NEQ -1 THEN 


K 11 
and collect attributes for ,STYLE <entit 16-Sep 75 VAX-11 Bliss-32 V4.0-74 

tHe =-- Set up ECC from one .STYLE HEADERS 13-808- 1382 94: 38; § DISKSVMSMA TERSCRUNOFF. gacastYLe. BLI; Pye? ae 

L 


NEW_BL Coffset] = .COL_BL Coffset) %; 


IF NOT .OLD_SYNTAX THEN 


i The user issued a a@ new-syntax, keyworded .STHL command. We have collected 
i information from his keywords in the HCOLL OFFSET of the ECC. Now move the 


' collected information into the target ECC area. 
INCR I FROM .FIRST_HL TO .LAST_HL DO 
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BEG! 
BIND 


First move 


ELSE 


| ECC header area -- 


us NUMERIC 
UM 


‘+ 
: Now move the numeric-value information. 
; 
4 
4 
4 


N 
si cerater sei tected keyword information to here. 
STYLE_BLOCK CHCOLL_OFFSET + .1, 0,0,0,0] 


: SECC_BLOCK; 
the bit information. 


v- ~FOCBAGED ; 
v “STARTODDS ; 
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i The user gave an old-syntax, numbered .STHL command. Overwrite the anties 


all 6 Levels -- with the results of that old 


i Note that this means the user loses the benefit of some of the advanced- 
syntax, keyword features: bolding and underlining, for example, are undone. 


INCR alc oo 1 TO 6 DO 


9 OLD_BV [.1. ECC$V BOLD] = FALSE; 

9 OLD~BV C.1. ECCSVZUNDERLINE) = FAL 

341 oLD~Bv £.1. ECC$V~ ~UNNUMBER RED) = ‘ ; fica .HLC_NO_NUMBER) ; 
943 OLD_BV C.J, ECCSH_RUNIN] = (.1 GEQ .HLC_RUNON); 

945 OLD BV. C.1 ECCSH CASE) = 

94 Ft ifs “UPPER THEN 

94 F ettske 

948 LSE 
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12 
ify and collect attributes for .STYLE <entit 16-5¢ -1984 01:50:5 VAX-11 Bliss-32 V4.0-742 P 
AEH eet Gs EEE from one STILE TIEABERS, 1uekep=19B6 SSiObse §— MERKSUMCMASTERSCKUNOFE “SRCISTYLE.BLIet@” (9 
ZSBITL_ *CHECK_HL_VALUES <= verify order and range of Hi-level values’ 
ROUTINE CHECK _HL_VALUES (FIRST_HL, LAST_HL) = 


FUNCTIONAL DESCRIPTION: 
CHECK_HL_VALUES Makes sure two supplied HL-level numbers are in 


ANNO OSI 


JFARAN—SS 


'¢ 
! If this subroutine has been called yet during this invocation of STYLE, 
then there is nothing more to check. 


iF .HLS CHECKED EQL -1 THEN ' Have we checked already, and failed? 
RETORN FALSE 


1 

1 

1 ' 

1} 

1! 

1: 

17 

1! ascending order, and range-checks them to make sure they are in the 

q ! H range from 1 to 6. 

8 : FORMAL PARAMETERS: 

e} : FIRST_HL, LAST_HL are the addresses of the two values to check. 

68 } IMPLICIT INPUTS: None 

85 } IMPLICIT OUTPUTS: 

8 1! If the two values were not in ascending order, they are reversed 
0988 +1! and the new, properly ordered values are ‘'pushed back'’ through the 
3494 : routine formals. 

991 1 =! ROUTINE VALUE: 
838 : COMPLETION CODES: 
0994 1! The routine returns TRUE if the two values were in range, and FALSE 
0995 1! otherwise. 
0996 1! 
0997 1 ! SIDE EFFECTS: None 
0998 1 !-- 
0999 1 BEGIN 
1000 1 
1001 1 EXTERNAL ROUTINE 
1908 1 CONVBB; 
1003 1 
1004 1 EXTERNAL LITERAL ‘Error messages 
102 1 RNF INM, 
1 oe 1 RNFNNA; 
1007 1 
1008 1 LOCAL 
1009 1 SWITCH, 
1010 1 DIGITS : VECTOR (10), 
1017 1 LEN; 
1 \ 1 
1015 1 OWN 
1014 1 FS_ALLOCATE (STRING, 5); 
1312 1 
1 16 1 BIND 
1017 1 FIR = .FIRST_HL, 
1018 1 LAS = .LAST_AL; 
1019 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
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STYL Verify and collect attributes for .STYLE <entit 1b-3¢ -1984 01:50:5 VAX-11 Bliss-32 V4.0-742 Page 23 
Sou 500 SET_STHL =~ Set up ECC from one .STYLE HEADERS 1 ~8ep-19 4 04:38:78 DISKSVMSMASTER:CRUNOFF . SRCISTYLE.BLI:1~ 3 
5 308 U1 § 1 ELSE 
3; U1 1 IF .HLS_CHECKED EQL 1 THEN 'If not, have we checked and all was ok? 
$ ape NY : ! RETORN TRUE 
3 i] 2 ! : HLS_CHECKED = 1; ‘Haven't yet checked. Indicate that now we have. 
: 908 U1 1 FS_INIT (STRING); 
: 909 U1 § 1 ‘i 
; 910 U 1034 1 + 
3 ae , 18 5 : Switch the two numbers if they are not monotone increasing. 
$ 31 U1 5 1 IF .FIR GTR .LAS THEN 
; 914 uU 1038 1 BEGIN ' User gave a range Like ‘‘LEVEL=3:1"' == which 
; 919 u 1039 1 SWITCH = .LAS; ! is legal -=- so rationalize it. 
3 218 U 1040 1 LAS = .FIR; 
: 91 U 1041 1 FIR = .SWITCH; 
: 918 U 1906 1 END; 
: 336 U loc i i*, heck th lied | l ber(s) 
3 ' Range=-chec e su ed level-number(s). 
: 355 Be ee ies ai 
3 356 U 1968 1 SELECT TRUE OF 
3; 9 U 1047 1 SET 
$ 352 U 1048 1 
; 925 U 1049 1 C.FIR EQL 0) : 
; 926 u 1050 1 ! 
; 927 uU 1051 1 ERMS (RNFINM, CHSPTR (UPLIT('O')), 1); '*IlLLegal number value’ 
: 928 U 1926 1 
3 94 u 1053 1 C.LAS EQL 0) : 
; 930 Uu 1054 1 ! 
; 931 u 1055 1 ERMS (RNFINM, CHSPTR (UPLIT('0')), 1); !*ILLegal number value’ 
3 336 U 1056 1 
:; 95 U 1057 1 C.FIR LSS 0) : 
3; 934 u 1058 1 ' 
; 935 Uu 1059 1 BEGIN 
: 936 U 1060 1 VBB (.FIR, DIGITS, LEN, 10); 
> 937 U 1061 1 FS WCHAR (STRING, %C'="); 
; 938 U 1906 1 DETR I FROM (MIN (5, .LEN)) TO 1 DO 
; 939 U 10635 1 FS _WCHAR (STRING, CHSPTR(.DIGITSC.1-1])); 
; 940 U 1064 1 ERMS (RNFNNA, .FS_START (STRING), .FS_LENGTH (STRING)); !"Negative number not allowed’ 
> 941 U 1065 1 FS INIT (STRING); 
3; 94 U 1066 1 END; 
3 94 U 1067 1 
3: 944 U 1068 1 C.LAS LSS 0) : 
: 945 U1 6 1 ! 
3 aoe u 1070 1 BEGIN 
> 9 u 1071 1 CONVBB (.LAS, DIGITS, LEN, 10); 
: 948 U1 ie 1 FS WCHAR (STRING, x¢ ="); 
3; 94 U 107 1 ETR I FROM (MIN ( -LEN)) TO 1 DO 
; 950 u 1074 1 FS_WCHAR (STRING, CH$PTR(.DIGITSC.1-1])); 
; «951 U 1075 1 ERMS (RNFNNA ~FS_START (STRING), .FS_LENGTH (STRING)); '*Negative number not allowed’ 
: 93¢ u 1076 1 S_INIT (STRING); 
; «95 U 1077 1 END; 
: «954 U1 28 1 
; «955 U 107 1 C.FIR GTR 6] : 
3 326 U 1080 1 ! 
; 95 U 1081 1 BEGIN 
; 958 U 1082 1 CONVBB (.FIR, DIGITS, LEN, 10); 
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¥oo"b00 SET StHt's= ‘Set up EE from one STYLE READERS 1eSeort9ge 3:08:18 DiSksumsnagtenscRunorF SRcastYLe.eLIcd™ «BS 
991 MSBTTL "INIT_STYLE_KW == Initialize $kWS_BLOCKVECTOR for STYLE commands’ 
33 ROUTINE INITUSTYLE[KW (HANDLER) : NOVALUE = 
$35 | FUNCTIONAL DESCRIPTION: 
$37 INIT_STYLE_KW initializes the SKWS_BLOCKVECTOR for STYLE commands. 
+44 FORMAL PARAMETERS: 
sf HANDLER tells which command is being processed. 
098 IMPLICIT INPUTS: 
005 The module-level OWN variable FIRST_TIME controls whether the keyword 
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i 
i 
i 
i 
i 
i 
i 
i 
i 
data is initialized. 
i 
i 
i 
i 
i 
i 
i 
i 
' 


KEYWORDS 
END; 


'¢ 
' Set up default values for those keywarde that take numeric parameters. 
} This lets us reestablish the defaul 


if the user does not give a value. 


KEYWORDS CKWSSK_AFTER, KWSS$H_ARG VALUE] = 
(IF fnew EQL (H_STYCE_CRAPTER OR H_STYLE_APPEND!) 


ELSE 1 ); 


KEYWORDS CKWSS$K BEFORE, KWSSH_ARG VALUE) = 
CIF -HANDLER EQL H.STYLE_READERS 
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0 
B98 IMPLICIT OUTPUTS: 
010 The module-level OWN variable KEYWORDS is initialized to represent 
at) the legal keywords for this .STYLE command. 
18 ROUTINE VALUE: 
1 COMPLETION CODES: None 
SIDE EFFECTS: None 
8 BEGIN 
31 pag Se 0 TO COUNT_STYL_KEYWORDS - 1 DO 
¢ KEYWORDS (.1, KWSSH_ARG_VALUE) = 0; 
2 KEYWORDS (.1, KWSS$HARG SIGN) = 0; 
$e KEYWORDS [.1, KWSSA_ARG_POINTER] = 0; 
$3 -1, KWSSHTARG_LENGTH) = 0; 
3 
8 
9 
0 
x 
‘ 
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WW 


ELSE 1); 
KEYWORDS CKWSSK_SPACES, KWS$H_ARG_VALUE) = 2; 
KEYWORDS CKWSSK_BETWEEN, KWSSH_ARG_VALUE) = 1; 
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a a a ed ed ed nd od od = dd 
a ee ee ee ce ee ee ee ed ed ed 
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ELSE 
IF HANDLER EQL (H_STYLE CHAPTER OR H_STYLE_APPENDI) 
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Verify and collect attributes for .STYLE <entit 16-Sep-1984 01:50:5 VAX-11 Bliss-32 V4.0-742 Page 26 
SET_STHL == Set up ECC from one .STYLE HEADERS 1 =30P 7182 93:3:38 DISKSVMSMASTER:CRUNOFF .SRCISTYLE.BLI:1> (BS 
1171 1 
Hi KEYWORDS CKWSSK_LEVEL, KWS$H_ARG_VALUE] = .HLLIST CCL_INDEX); 
1174 1 ! 
1175 1 ! The module-level OWN variable FIRST_TIME is initialized to 1 in its 
1178 1 ' declaration; therefore, the first time this routine is called, the 
1177 «1 ' seyuers pointers and cengths are set up. Qn all subsequent calls, 
1198 ! only the keyword-value fields are initialized. 
1180 1 if .FIRST_TIME EQL 1 THEN 
i 1 FIRST_TIME = = 
1 § RETURN; 
1185 1 !4 
1 $ : One-time-only initialization follows. 
1188 1 ! AFTER k yword 
1189 1 KEYWORDS CKWSSK_AFTER, KWSSA_KW_POINTER] = CHSPTR(UPLIT('AFTER')); 
1190 1 KEYWORDS CKWSSK_AFTER, KWSSH-KW-LENGTH] = 5; 
1191 KEYWORDS CKWSSKTAFTER, KWSSHARG_TYPE) = KWS$K_NUMBER_OPTIONAL; 
1198 1 i ALLCAP keyword 
1194 1 KEYWORDS CKWSSK_ALLCAP, KWSSA_KW_POINTER] = CHSPTR(UPLIT('ALLCAP")); 
1195 1 KEYWORDS CKWSSK-ALLCAP, KWSSH-KW-LENGTH] = 6; 
1196 KEYWORDS CKWSSKTALLCAP, KWSSH"ARG_TYPE] = KWSS$K_NO_ARGUMENTS; 
1198 1 i BEFORE keyword 
1199 1 KEYWORDS CKWS$K_BEFORE, KWSSA_KW_POINTER] = CHSPTR(UPLIT('BEFORE')); 
1200 1 KEYWORDS CKWSSK-BEFORE, KWSSH-KW-LENGTH] = 6; 
4 KEYWORDS CKWSSK"BEFORE, KWSSH"ARG_TYPE] = kWS$K_NUMBER_OPTIONAL; 
1 68 1 i BETWEEN keyword 
1204 1 KEYWORDS KUSSK. BETWEEN, KWSSA_KW_POINTER] = CHSPTR(UPLIT('BETWEEN')); 
1205 1 KEYWORDS CKWSSK-BETWEEN, KWSS$H-KW-LENGTH] = 7; 
06 KEYWORDS CKWSSK-BETWEEN, KWSSHARG_TYPE] = KWS$K_NUMBER_OPTIONAL; 
1208 1 i BOLD keyword 
1209 1 KEYWORDS [KWS$K_BOLD, KWSSA_KW_POINTER] = CHSPTR(UPLIT('BOLD')); 
1210 1 KEYWORDS CKWS$K"BOLD, KWS$H"KW"LENGTH) = 4; 
1 KEYWORDS CKWSS$K-BOLD, KWSSH"ARG_TYPE] = KWSS$K_NO_ARGUMENTS; 
1 ig 1 i BREAK k yword 
1214 1 KEYWORDS CKWS$K_BREAK, KWSS$A_KW_POINTER] = CHSPTR(UPLIT('BREAK")); 
1215 1 KEYWORDS CKWSS$K"BREAK, KWSSH"KW-LENGTH] = 5; 
16 KEYWORDS CKWSSK-BREAK, KWSSH_ARG_TYPE] = KWSSK_NO_ARGUMENTS; 
1 18 1 i CENTER keyword 
1219 1 KEYWORDS CKWS$K_CENTER, KWSSA_KW_POINTER] = CHSPTR(UPLIT('CENTER')); 
1220 1 KEYWORDS CKWSSK-CENTER, KWSSH"KW-LENGTH) = 6; 
1 KEYWORDS CKWSSKICENTER, KWSSH-ARG_TYPE] = kWS$K_NO_ARGUMENTS; 
1 5 1 i DEFAULTS keyword 
1206 1 KEYWORDS CKWS$K_DEFAULTS, KWSSA_KW_POINTER] = CHSPTR(UPLIT("DEFAULTS')); 
1225 1 KEYWORDS [KWSSK"DEFAULTS, KWSSH~KW-LENGTHJ : 
$ KEYWORDS CKWSSK-DEFAULTS, KWSSHTARG_ TYPE] 


= kWS$K_NO_ARGUMENTS; 
| 
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R 


GES 


STCAP, KWSSA_KW_POINTE 
STCAP, KWSSH-KW-LENGTH 
TC RG_TYPE) 


is = CHSPTR(UPLIT('FIRSTCAP')); 
AP, KWSSH_ARG 


a 
= KWS$K_NO_ARGUMENTS; 


ooo 


SE, KWSSA_KW_POINTE 
SE, KWSSH-KW-LENGTH 
TYPE] 


83 = CHSPTR(UPLIT("LEAVECASE')); 
SE, KWSSH_ARG_ 


= 9: 
= KWS$K_NO_ARGUMENTS; 
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KALEET, _POINTE 
K_LEFT, KWSSH_KW_LENGTH 
KULEFT, “TYPE) 


KWSSH_ARG 
rece 
E WSSK_LEVEL, KWSS$A_KW_POINTE 
E KWSSK_LEVEL, KWSSH_KW_LENGTH 
KEYWORDS CkKWSSKILEVEL, KWSSH_ARG_TYPE] 


' NOBOLD Reyvord 

KEYWORDS CKWSS$K_NOBOLD, KWSSA_KW_POINTE 
KWSS$K_NOBOLD, KWSSH_KW-LENGTH 

KEYWORDS CKWSS$K_NOBOLD, KWSSH_ARG_TYPE) 


' NOBREAK eres 

KEYWORDS CKWSSK_NOBREAK, KWSSA_KW_POINTER] =_CHSPTR(UPLIT(*NOBREAK')); 
K KWSSK_NOBREAK, KWSSH_KW_LENGTH] = 7; 

KEYWORDS 


KWSSK"NOBREAK, KWSSH~ARG_TYPE) = KWS$K_NO_ARGUMENTS; 
i NOPAGE keyword 
KEYWORDS CKWSSK_NOPAGE, KWS$A_KW_POINTER] = CHSPTR(UPLIT('NCPAGE')); 
K KWS$K-NOPAGE, KWS$H-KW-LENGTH] = 6; 
KEYWORDS CKWSSK_NOPAGE, KWSSHTARG_TYPE] = KWS$K_NO_ARGUMENTS; 
i NORUNIN 


! keyword 

KEYWORDS KWSSK.NORUNIN, KWSSA_KW_POINTE 
KEYWORDS CKWSSK_NORUNIN, KWSSH_KW_ LENGTH 
KEYWORDS KWSSK_NORUNIN, KWSSH_ARG_TYPE] 


i a keyword 


Rd = CHSPTR(UPLIT(*LEFT')); 


= KWS$K_NO_ARGUMENTS; 


RI = CHSPTR(UPLIT('LEVEL')); 
+ 4 . 
= KWSS$K_RANGE_OF __NUMBERS; 


RI] = CHSPTR(UPLIT("NOBOLD')); 
= KWS$K_NO_ARGUMENTS; 
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R =_CHSPTR(UPLIT(*NORUNIN')); 


= KWSSK_NO_ARGUMENTS; 


KEYWORDS CKWS$K_NOSTARTODD, KWSSA_KW_POINTE 
KEYWORDS CKWSSK-NOSTARTODD, KWSSH-KW-LENGTH 
KEYWORDS CKWSSK-NOSTARTODD, KWSSH-ARG_ TYPE] 


i ie keyword 


R] = SHSPTRCUPLIT('NOSTARTODD*)); 
= 11. 
= kWS$K_NO_ARGUMENTS; 
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KEYWORDS CKWSSK_NOTOCPAGE, KWS$A_KW_POINTE 
KEYWORDS CKWSSK-NOTOCPAGE, KWS$H-KW-LENGTH) = 
KEYWORDS CKWSSK-NOTOCPAGE, KWSSH_ARG TYPE] = KWS$K_NO_ARGUMENTS; 


i NOUNDERL INE heyvor$ 
KEYWORDS [KWSSK_NOUNDERLINE, KWSSA_KW_POINTE 
KWSSK_NOUNDERLINE, KWSS$H_ KW Lovett 


KEYWORDS * 
KEYWORDS CKWSSK-NOUNDERLINE, KWSSH~ARG_T 


a = CHSPTRC(UPLIT("NOUNDERLINE')); 


= kWS$K_NO_ARGUMENTS; 


: ort tie | hexyere 
KEYWORDS CKWSSK_NUMBERED, KWSSA_KW_POINTER] = CHSPTR(UPLIT("NUMBERED')); 
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KEYWORDS [KWSSK_NUMBERED, KWSSH_KW_LENGTH) = 8; 
KEYWORDS CkWSSKINUMBERED, KWSSH-ARG_TYPE] = kWSS$K_NO_ARGUMENTS; 


! PAGE ke word 

KEYWORDS [KWSSK_PAGE, KWSSA_KW_POINTER] = CHSPTR(UPLIT('PAGE')); 
KEYWORDS [KWSSK-PAGE, KWSSH-KW LENGTH] = 4; 

KEYWORDS CKWSSK-PAGE, KWSSH"ARG_TYPE) = KWSSK_NO_ARGUMENTS; 


i RIGHT keyword 
YWORDS CKWSS$K_RIGHT, KWSSA_KW_POINTER] = CHSPTR(UPLIT('RIGHT")); 

YWORDS CKWSSK-RIGHT, KWSSH-KW-LENGTH] = 5; 

YWORDS CKWSSK-RIGHT, KWSSH-ARG_TYPE] = KWS$K_NO_ARGUMENTS; 

RUNIN keyword 

EYWORDS CKWS$K_RUNIN, KWSS$A_KW_POINTE 

KEYWORDS CKWSSK-RUNIN, KWSSH-KW”LENGTH 

KEYWORDS CKWSSK_RUNIN, KWSSH_ARG_TYPE] 


i SPACES keyword 
KEYWORDS ¢ SSK_SPACES, KWSSA_KW_POINTER] = CHSPTR(UPLIT('SPACES')); 


Re - KKK 


RI = ,CHSPTR(UPLIT (*RUNIN')); 
Poy 
= kWS$K_NO_ARGUMENTS; 


KEYWORDS CKWSSK_SPACES, KWSSH_KW LENGTH] 


= és 
KEYWORDS KWSSK-SPACES, KWSSH-ARG_TYPE] = KWS$K_NUMBER_OPTIONAL; 
i STARTODD keyword 


KEYWORDS CKWSSK_STARTODD, KWSSA_KW_POINTER] = CHSPTR(UPLIT('STARTODD')); 
KEYWORDS CKWSSK-STARTODD, KWSSH-KW-LENGTH] = 9; 
KEYWORDS CKWSSK-STARTODD, KWSSHTARG TYPE] = KWSSK_NO_ARGUMENTS; 


! TESTPAGE keyword 
TESTPAGE, KWSS$A_KW_POINTER] = CHSPTR(UPLIT('TESTPAGE')); 
KWSSK-TESTPAGE, KWSSH"KW-LENGTH] = 8; 

KWSSK-TESTPAGE, KWSSH-ARG_TYPE] = KWS$K_NUMBER_OPTIONAL; 


KEYWORDS 


! TOCPAGE peryord 

KEYWORDS CKWSS$K_TOCPAGE, KWSSA_KW_POINTER] = CHSPTR(UPLIT('TOCPAGE')); 
KWSSK-TOCPAGE, KWS$H-KW-LENGTH] = 8; 

KEYWORDS CKWSSK-TOCPAGE, KWSSH_ARG_TYPE] = KWSSK_NO_ARGUMENTS; 
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!' UNDERLINE keyword 

KEYWORDS CKWSS$K_UNDERLINE, KWSSA_KW_POINTER] = CHSPTR(UPLIT(*UNDERLINE')); 
KEYWORDS CKWSSK-UNDERLINE, KWSSH"KW-LENGTH] = 9; 

KEYWORDS CKWSSKIUNDERLINE, KWSSH"ARG_TYPE] = KWS$K_NO_ARGUMENTS; 


i UNNUMBERED keyword 
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KEYWORDS S$K_UNNUMBERED, KWSSA_KW_POINTER] = SASPTRCUPL ET *URORRERES" 2: 
KEYWORDS CKWSSK_UNNUMBERED, KWSSH_KW LENGTH) = 10; 
KEYWORDS KWSSK_UNNUMBERED, KWSSH_ARG_TYPE) = KWS$K_NO_ARGUMENTS; 

af] END; ! End of INIT_STYLE_Kw 

END ‘End of module 
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v04= SET SHE == Set Up ECC from one STILE HEASERS” 1e-Sepe19RG SiObiae — DARKSUMGMASSERSCHcWOre “SecastYLE.aLIe?m” chy vo%= 
PSECT SUMMARY 
; Name Bytes Attributes 
: SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOPIC -ALIGN(2) 
; SCODES 498 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
3 ecsesess Jynhel§ coceceres Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 59 252 :00. 
; 7$255$DUA 8: (RUNOFF .SRCIDS Ri 18. L32;1 1348 49 g 86 $0:00:8 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:STYLE/OBJ=OBJ$:STYLE MSRC$:STYLE/UPDATE=(ENH$: STYLE) 
hh 498 code + 8 data bytes 


classed tines sof ¢ 
Lines/CPU Min: i ¢) 
,onence/PU-Hins 25518 
nory Used: 130 pages 
oe ation Complete 
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